﻿Public Delegate Sub UpdateDisplayFilterHandler(ByVal sender As Object, ByVal e As DisplayFilterEventArgs)
Public Class DisplayFilterEventArgs
    Inherits EventArgs
    Private filterText_Renamed As String
    Public Sub New(ByVal filterText As String)
        Me.filterText_Renamed = filterText
    End Sub
    Public Property FilterText() As String
        Get
            Return filterText_Renamed
        End Get
        Set(ByVal value As String)
            If filterText_Renamed <> value Then
                filterText_Renamed = value
            End If
        End Set
    End Property

End Class
